<?php
require('fpdf.php');
class PDF extends FPDF
{
//Columna actual
var $col=0;
//Ordenada de
comienzo de la columna
var $y0;
function Header()
{
//Cabacera
global $title;
$this->SetFont('Arial','B',15);
$w=$this->GetStringWidth($title)+6;
$this->SetX((210-$w)/2);
$this->SetDrawColor(0,80,180);
$this->SetFillColor(230,230,0);
$this->SetTextColor(220,50,50);
$this->SetLineWidth(1);
$this->Cell($w,9,$title,1,1,'C',1);
$this->Ln(10);
//Guardar
ordenada
$this->y0=$this->GetY();
}
function
Footer()
{
//Pie
de página
$this->SetY(-15);
$this->SetFont('Arial','I',8);
$this->SetTextColor(128);
$this->Cell(0,10,'Página
'.$this->PageNo(),0,0,'C');
}
function
SetCol($col)
{
//Establecer la posición de una columna
dada
$this->col=$col;
$x=10+$col*65;
$this->SetLeftMargin($x);
$this->SetX($x);
}
function AcceptPageBreak()
{
//Método que acepta o no el salto automático de
página
if($this->col<2)
{
//Ir a la siguiente
columna
$this->SetCol($this->col+1);
//Establecer la ordenada al
principio
$this->SetY($this->y0);
//Seguir en esta
página
return false;
}
else
{
//Volver a la primera
columna
$this->SetCol(0);
//Salto de
página
return true;
}
}
function
ChapterTitle($num,$label)
{
//Título
$this->SetFont('Arial','',12);
$this->SetFillColor(200,220,255);
$this->Cell(0,6,"Capítulo $num :
$label",0,1,'L',1);
$this->Ln(4);
//Guardar
ordenada
$this->y0=$this->GetY();
}
function
ChapterBody($fichier)
{
//Abrir
fichero de texto
$f=fopen($fichier,'r');
$txt=fread($f,filesize($fichier));
fclose($f);
//Fuente
$this->SetFont('Times','',12);
//Imprimir
texto en una columna de 6 cm de
ancho
$this->MultiCell(60,5,$txt);
$this->Ln();
//Cita en
itálica
$this->SetFont('','I');
$this->Cell(0,5,'(fin del
extracto)');
//Volver a la primera
columna
$this->SetCol(0);
}
function PrintChapter($num,$title,$file)
{
//Añadir
capítulo
$this->AddPage();
$this->ChapterTitle($num,$title);
$this->ChapterBody($file);
}
}
$pdf=new
PDF();
$title='20000 Leguas de Viaje Submarino';
$pdf->SetTitle($title);
$pdf->SetAuthor('Julio Verne');
$pdf->PrintChapter(1,'UN RIZO DE HUIDA','20k_c1.txt');
$pdf->PrintChapter(2,'LOS PROS Y LOS
CONTRAS','20k_c2.txt');
$pdf->Output();
?>
|